home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Frameworks / TransSkel 3.24 / Demos / Pascal Demos / MiniSkel / MiniSkel.p next >
Text File  |  1996-01-25  |  456b  |  30 lines
  1. program MiniSkel;
  2.  
  3.     uses
  4.         Menus, TransSkel;
  5.  
  6.     const
  7.         fileMenuNum = skelAppleMenuID + 1;
  8.  
  9.     procedure DoFileMenu (item: Integer);
  10.     begin
  11.         SkelStopEventLoop;
  12.     end;
  13.  
  14.     procedure mainprog;
  15.         var
  16.             m: MenuHandle;
  17.             ignore: Boolean;
  18.     begin
  19.         SkelInit(nil);
  20.         SkelApple('', nil);
  21.         m := NewMenu(fileMenuNum, 'File');
  22.         AppendMenu(m, 'Quit/Q');
  23.         ignore := SkelMenu(m, @DoFileMenu, nil, false, true);
  24.         SkelEventLoop;
  25.         SkelCleanup;
  26.     end;
  27.  
  28. begin
  29.     mainprog;
  30. end.